home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / vegask1a / module1.bas < prev    next >
BASIC Source File  |  1999-01-29  |  353b  |  15 lines
  1. Attribute VB_Name = "Module1"
  2. Sub LoadResStrings(frm As Form)
  3.     On Error Resume Next
  4.     Dim ctl As Control
  5.     Dim obj As Object
  6.     Dim fnt As Object
  7.     Dim sCtlType As String
  8.     Dim nVal As Integer
  9.         'set the font
  10.     Set fnt = frm.Font
  11.     fnt.Name = LoadResString(20)
  12.     fnt.Size = CInt(LoadResString(21))
  13.     End Sub
  14.     
  15.